

format 8 
markov responseblue
*(muT, WF, xFO, muF, CF, laF, xFC, CP, muP, laP, xCP, muC, laC, WP, xCF, xCD, muD, laD) 
T F1 muT
F1 Done WF*xFO*muF
F1 F2 muF*(1-WF)
F1 C xFC*muF*WF
C P1 xCP*(muC-laC)
C F1 xCF*(muC-laC)
C D xCD*(muC-laC)
P1 C WP*muP
P1 P2 muP*(1-WP)
D C (muD-laD)
F2 Done xFO*(CF*muF-laF)
F2 C xFC*(CF*muF-laF)
P2 C (CP*muP-laP)
end


end

bind 

muT 0.2
muF .375
muC 1
muD .2
muP .05

WF 0.3
WP  0.4
CF 4
CP 2

xFO 0.5
xFC 0.5
xCF 0.46
xCD 0.33
xCP 0.21

laF 1/15
laC (0.5)/(0.46*15)
laD (0.5*0.33)/(.46*15)
laP (0.5*0.21)/(0.46*15)

end

expr mean(responseblue)

